Public Class FormFicha

#Region "Eventos "

    Private Sub RadioButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton1.Click
        If GroupBox1.Height = 12 Then
            GroupBox1.Height = 100
        Else
            GroupBox1.Height = 12
        End If
        Rezise_GB2()
    End Sub

    Private Sub Rezise_GB2()
        GroupBox2.Height = Me.Height - GroupBox1.Top - GroupBox1.Height - 25
        GroupBox2.Top = GroupBox1.Top + GroupBox1.Height + 10

    End Sub

    Private Sub FormFicha_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SizeChanged
        GroupBox1.Width = Me.Width - 50
        GroupBox2.Width = Me.Width - 50
        Rezise_GB2()
    End Sub

#End Region

#Region "Datos"

    Friend Sub RefreshDatos(ByVal oPaciente As WeiDaoDataSet.PacientesRow)

        txtNombre.Text = oPaciente.Nombre

        If Not oPaciente.IsCelularNull() Then
            txtCelular.Text = oPaciente.Celular
        Else
            txtCelular.Text = "<Vacio>"
        End If

    End Sub


#End Region
    
End Class